home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 34.zip
/
BS1 part 34
/
megadisc PD 13.adf
/
PROGRAMS
/
Bmapviewer
< prev
next >
Wrap
Text File
|
1989-05-22
|
2KB
|
106 lines
startit:
PRINT:PRINT
PRINT "BMAP VIEWER (Options 1 - 4 assume your .bmaps are in directory"
PRINT " BMAPS on the same disk as this program - If they"
PRINT " are on another disk or in another directory use 5."
PRINT
RESTORE
DATA DISKFONT,DOS,GRAPHICS,EXEC,OTHER,QUIT,END
READ f$
f=0
WHILE f$<>"END"
f=f+1
IF f$="OTHER" THEN
PRINT f; " OTHER"
ELSEIF f$="QUIT" THEN
PRINT f; " QUIT"
ELSE
PRINT f;" bmaps/";f$;".bmap"
END IF
READ f$
WEND
ch=0
PRINT
WHILE ch<1 OR ch>f
INPUT "Your choice";ch
WEND
IF ch<f-1 THEN
RESTORE
FOR j=1 TO ch
READ f$
NEXT j
nam$="bmaps/"+f$+".bmap"
ELSEIF ch=f-1 THEN
PRINT "Enter full .bmap file name: ";
LINE INPUT nam$
ELSE
CLS
END
END IF
showit:
INPUT "Output to 1. Screen or 2. Printer";op
IF op<1 OR op>2 THEN showit
CLS
ld=1
OPEN nam$ FOR INPUT AS #1
bfile$=INPUT$(LOF(1),1)
CLOSE #1
sname=1
n$=CHR$(0)
WHILE sname<LEN(bfile$)
ename=INSTR(MID$(bfile$,sname),n$)
IF op=1 THEN
PRINT MID$(bfile$,sname,ename-1);TAB(25);
ELSE
LPRINT MID$(bfile$,sname,ename-1);TAB(25);
END IF
ofset=CVI(MID$(bfile$,ename+sname,2))
IF op=1 THEN
PRINT USING "#### ";ofset;
ELSE
LPRINT USING "#### ";ofset;
END IF
sep$=" "
parmpt=ename+sname+2
parm=ASC(MID$(bfile$,parmpt))
WHILE parm<>0
parm=parm-1
IF parm>7 THEN
handle$="A"+CHR$(48+parm-8)
ELSE
handle$="D"+CHR$(48+parm)
END IF
IF op=1 THEN
PRINT sep$;handle$;
ELSE
LPRINT sep$;handle$;
END IF
sep$=","
parmpt=parmpt+1
parm=ASC(MID$(bfile$,parmpt))
WEND
IF op=1 THEN
PRINT: ld =ld+1
ELSE
LPRINT
END IF
IF ld=20 THEN GOSUB continue
sname=parmpt+1
WEND
IF op=1 THEN
GOSUB continue
ELSE
LPRINT CHR$(12)
END IF
GOTO startit
continue:
LOCATE 22,22
INPUT " PRESS ENTER TO CONTINUE";con$
ld=1
CLS
RETURN